From: Mauro Aranda <maurooaranda@gmail.com>
Date: Sat, 15 Oct 2022 13:56:43 +0000 (-0300)
Subject: ; Fix message-server-alist :type (Bug#58546)
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~28^2~13^2~2055^2~606
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=9fcd59a97820e5154e678be8b98fe0cac4e4546e;p=emacs.git

; Fix message-server-alist :type (Bug#58546)
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 67ec0531fa4..5e4e9854a6b 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4361,10 +4361,10 @@ arguments.  If METHOD is nil in this case, the return value of
 the function will be inserted instead.
 If the buffer already has a\"X-Message-SMTP-Method\" header,
 it is left unchanged."
-  :type '(alist :key-type '(choice
-                            (string :tag "From Address")
-                            (function :tag "Predicate"))
-                :value-type 'string)
+  :type '(alist :key-type (choice
+                           (string :tag "From Address")
+                           (function :tag "Predicate"))
+                :value-type string)
   :version "29.1"
   :group 'message-sending)